home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / CC_C / 0151.ZIP / EXPAND.C < prev    next >
Text File  |  1982-12-30  |  1KB  |  59 lines
  1. #include <stdio.h>
  2. #include <ctype.h>
  3.  
  4.     /************************************************
  5.     *                        *
  6.     *        -- E X P A N D --            *
  7.     *                        *
  8.     *    Expand command line args into        *
  9.     *         a file.            *
  10.     *                        *
  11.     *        T. Jennings 30 Dec. 82        *
  12.     *          created 22 Nov. 82        *
  13.     *                        *
  14.     *                        *
  15.     ************************************************/
  16.  
  17.  
  18. main(argc,argv)
  19. int argc;
  20. char *argv[];
  21. {
  22. long size;
  23. long fsize;
  24. int i;
  25. char file[80];
  26. FILE *fi;
  27. char filespec[80];
  28. char thing[80];
  29. char secondthing[80];
  30. char name[80];
  31.  
  32.     if (argc < 4) {
  33.         printf("EXPAND <file> <thing> <filespec> <2ndthing> creates <file> which\n");
  34.         printf(" contains a copy of <thing> and one match from\n");
  35.         printf(" <filespec>, followed by <2ndthing>, if it exists.\n");
  36.         exit(1);
  37.     }
  38.  
  39.     strcpy(file,argv[1]);
  40.     strcpy(thing,argv[2]);
  41.     strcpy(filespec,argv[3]);
  42.     strcpy(secondthing,"");
  43.     if (argc > 4)
  44.         strcpy(secondthing,argv[4]);
  45.     i= 0;
  46.     fi= fopen(file,"w");
  47.     if (fi == 0) {
  48.         printf("Can't create %s\n",file);
  49.         exit(1);
  50.     }    
  51.     while (xfind(filespec,name,&fsize,0,i)) {
  52.         fprintf(fi,"%s %s %s\n",thing,name,secondthing);
  53.         ++i;
  54.     }
  55.     printf("Made %d lines.\n",i);
  56.     fclose(fi);
  57.     exit(0);
  58. }
  59.